(outline-mark-subtree): Activate the mark.

diff --git a/lisp/outline.el b/lisp/outline.el
index 012396c2eb0870b2d82b24c215ec94c34a8fdbc3..8a05aaf0cd93ac82403fcde8bf2d25b083529c9c 100644 (file)
--- a/lisp/outline.el
+++ b/lisp/outline.el
@@ -685,7 +685,7 @@ This puts point at the start of the current subtree, and mark at the end."
       (outline-previous-visible-heading 1))
     (setq beg (point))
     (outline-end-of-subtree)
-    (push-mark (point))
+    (push-mark (point) nil t)
     (goto-char beg)))
 \f